home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE20 / TIPTRIX / LISTING5.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-03-17  |  280 b   |  12 lines

  1. function CloneTable(aTable: TTable): TTable;
  2. begin
  3.   Result:=TTable.Create(nil);
  4.   with Result do begin
  5.     DataBaseName:=aTable.DataBaseName;
  6.     TableName:=aTable.TableName;
  7.     IndexFieldNames:=aTable.IndexFieldNames;
  8.     Open;
  9.     GotoCurrent(aTable);
  10.   end;
  11. end;
  12.